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-- DebugTable.Mesa; 
-- Edited by: 

Sandman on March 12, 1978 11:29 AM 

Barbara on May 15, 1978 10:21 AM 

DIRECTORY 

BinaryDefs: FROM "binarydef s" USING [CommandTab], 
CommandDefs: FROM "commanddef s" USING [ 

CommandName, ErrorCode, FTPCode, ICode, IDCode, SignalCode], 
CommandTabDefs: FROM "commandtabdef s H USING [DSRptr], 
IODefs: FROM "iodefs" USING [WriteCliar] , 
MiscDefs: FROM "miscdefs" USING [DestroyFakeModule] , 
SegmentDefs: FROM "segmentdef s ,f USING [ 

FileSegmentAddress , FileSegmentHandle, Swapln, Unlock], 
StringDefs: FROM "stringdef s" USING [Substring, SubStringDescriptor] ; 

DebugTable: PROGRAM 

IMPORTS BinaryDefs, IODefs, MiscDefs, SegmentDefs 

EXPORTS CommandDefs » 

BEGIN 

-- DSRp and desc.base are set by LockStringTable 

DSRp: CommandTabDefs. DSRptr; 

desc: StringDefs .SubStringDescriptor ; 

ss: StringDefs .Substring = @desc; 

-- string table management 

tableState: {in, out} <- out; 

stringTableSeg: SegmentDefs . FileSegmentHandle; 
offset: CARDINAL; 

OpenStringTable: PROCEDURE RETURNS [CommandTabDefs .DSRptr] ■ 
BEGIN OPEN SegmentDefs; 
SELECT tableState FROM 

out => SwapIn[stringTableSeg]; 

ENDCASE; 
tableState <- in; 

RETURN [LOOPHOLE[FileSegmentAddress[stringTableSeg]+offset]]; 
END; 

CloseStringTable: PROCEDURE « 
BEGIN 
IF tableState = in THEN 

BEGIN 

SegmentDefs .Unlock [stringTableSeg]; 

tableState «- out; 

END; 
RETURN 
END; 

LockStringTable: PROCEDURE - 
BEGIN 

DSRp ♦- OpenStringTable[]; 

ss.base *- LOOPHOLE[DSRp + DSRp . rel ativebase, STRING]; 
RETURN 
END; 

WriteCommandString: PUBLIC PROCEDURE [n: CommandDefs .CommandName] ■ 
BEGIN 

LockStringTable[] ; 

ss. offset *- DSRp .CommandStrings[n] .off set; 
ss. length ♦- DSRp .CommandStrings[n]. length; 
WriteSubString[ss] ; 
CloseStringTable[] ; 
RETURN 
END; 

GetCommandString: PUBLIC PROCEDURE [n: CommandDefs .CommandName, command: StringDefs .Substring] 
BEGIN 

LockStr ingrable[]; 

command. base +- LOOPHOLE[DSRp + DSRp . rel ativebase, STRING]; 
command .of f set <- DSRp .CommandStrings[n] .of f set ; 
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command . length «- DSRp.CommandStrings[n]. length; 

CloseStringTab1e[] ; 

RETURN 

END; 

WriteSignalString: PUBLIC PROCEDURE [n: CommandDef s .SignalCode] 
BEGIN 

LockStringTab1e[] ; 

ss. offset <- DSRp. SignalMessages[n], offset; 
ss. length <- DSRp .SignalMessages[n] . length ; 
WriteSubString[ss]; 
CloseStringTable[]; 
RETURN 
END; 

WriteErrorString: PUBLIC PROCEDURE [n: CommandDef s .ErrorCode] ■ 
BEGIN 

LockStringTable[] ; 

ss. offset <- DSRp .ErrorMessages[n].of f set; 
ss. length <- DSRp. ErrorMessages[n] . length; 
WriteSubString[ss] ; 
CloseStringTable[]; 
RETURN 
END; 

WritelDString: PUBLIC PROCEDURE [n: CommandDef s . IDCode] ■ 
BEGIN 

LockStringTable[]; 

ss. offset <- DSRp. IDStrings[n] . offset; 
ss. length <- DSRp. IDStringsfn] . length ; 
WriteSubString[ss] ; 
CloseStringTable[]; 
RETURN 
END; 

WriteFTPString: PUBLIC PROCEDURE [n: CommandDefs . FTPCode] - 
BEGIN 

LockStringTable[]; 

ss. offset <- DSRp. FTPMessages[n] . offset; 
ss. length «- DSRp . FTPMessages[n]. length; 
WriteSubString[ss] ; 
CloseS tringTable[]; 
RETURN 
END; 

WritelString: PUBLIC PROCEDURE [n: CommandDef s . ICode] = 
BEGIN 

LockStringTable[]; 

ss. offset <- DSRp. InterpretMessages[n] .off set; 
ss. length <- DSRp . InterpretMessages[n] . length; 
WriteSubString[ss] ; 
CloseStringTable[] ; 
RETURN 
END; 

Init: PROCEDURE = 
BEGIN 
[stringTableSeg , offset] <- 

MiscDefs.DestroyFakeModule[LOOPHOLE[BinaryDefs.CommandTab]]; 
RETURN 
END; 

WriteSubString: PROCEDURE [s: StringDefs .Substring] = 
BEGIN -- type substring 
i: CARDINAL; 
FOR i IN [0. .s. length) 

DO IODefs.WrUeChar[s.base[s. offset + i]] ENDLOOP; 
RETURN 
END; 

Init[]; 

END. . . 



